/* buildcolrausvars.ado --- 
 * 
 * Filename: buildcolrausvars.ado
 * Description: Nach svytab zweispaltige Matrix mit Zeilenprozenten erstellen und in Variablen umwandeln
 * Author: Kai Arzheimer
 * Created: Tue Mar 15 16:25:51 2011 (+0100)
 * Version: 1.0
 * Last-Updated: Mon Mar 21 10:14:51 2011 (+0100)
 *           By:
 *     Update #: 11
 * reads: 
 * writes: 
 * Compatibility: 11.1
 * 
 */

/* Commentary: 
 * Funktioniert f�r West und Ost
 * Achtung: Variablen raus* werden �berschrieben
 * Relative H�ufigkeiten werden in Prozente umgewandelt und auf 0 Nachkommastellen gerundet
 * 
 */

/* Change log:
 * 
 * 
 */

/* Code: */


program buildcolrausvars
	matrix zellen=e(Prop)
	* Wieviele Kategorien? 
   local categories = e(r)
	matrix west= zellen[1..`categories',1]
	matrix ost= zellen[1..`categories',2]
	* eins mu� auch generalisiert werden
	matrix eins=J(1,`categories',1)
	matrix westsum=eins*west
	matrix ostsum=eins*ost
	matrix westspalt=west/westsum[1,1]
	matrix ostspalt=ost/ostsum[1,1]
	matrix raus = westspalt,ostspalt
	
	capture drop raus*
	svmat raus, names(raus)
	
	foreach var of varlist raus*  {
		replace `var' = round(`var'*100,1)
		}
	
	
end



/*  buildcolrausvars.ado ends here */
